
#ifndef __rttl_samples_c__
#define __rttl_samples_c__

#include "rttl_play.h"

const _Rom char* haunted = "HauntedHouse: d=4,o=5,b=108: 2a4, 2e, 2d#, 2b4, 2a4, 2c, 2d, 2a#4, 2e., e, 1f4, 1a4, 1d#, 2e., d, 2c., b4, 1a4, 1p, 2a4, 2e, 2d#, 2b4, 2a4, 2c, 2d, 2a#4, 2e., e, 1f4, 1a4, 1d#, 2e., d, 2c., b4, 1a4";

void play_haunted(void) {

	play_string(haunted);
	/*
	set_tempo(108);

	play_note(2, 'a', 0, 4, 0);
	play_note(2, 'e', 0, 5, 0);
	play_note(2, 'd', 1, 5, 0);
	play_note(2, 'b', 0, 4, 0);
	play_note(2, 'a', 0, 4, 0);
	play_note(2, 'c', 0, 5, 0);
	play_note(2, 'd', 0, 5, 0);
	play_note(2, 'a', 1, 4, 0);
	play_note(2, 'e', 0, 5, 1);
	play_note(4, 'e', 0, 5, 0);
	play_note(1, 'f', 0, 4, 0);
	play_note(1, 'a', 0, 4, 0);
	play_note(1, 'd', 1, 5, 0);
	play_note(2, 'e', 0, 5, 1);
	play_note(4, 'd', 0, 5, 0);
	play_note(2, 'c', 0, 5, 1);
	play_note(4, 'b', 0, 4, 0);
	play_note(1, 'a', 0, 4, 0);
	play_note(1, 'p', 0, 5, 0);
	play_note(2, 'a', 0, 4, 0);
	play_note(2, 'e', 0, 5, 0);
	play_note(2, 'd', 1, 5, 0);
	play_note(2, 'b', 0, 4, 0);
	play_note(2, 'a', 0, 4, 0);
	play_note(2, 'c', 0, 5, 0);
	play_note(2, 'd', 0, 5, 0);
	play_note(2, 'a', 1, 4, 0);
	play_note(2, 'e', 0, 5, 1);
	play_note(4, 'e', 0, 5, 0);
	play_note(1, 'f', 0, 4, 0);
	play_note(1, 'a', 0, 4, 0);
	play_note(1, 'd', 1, 5, 0);
	play_note(2, 'e', 0, 5, 1);
	play_note(4, 'd', 0, 5, 0);
	play_note(2, 'c', 0, 5, 1);
	play_note(4, 'b', 0, 4, 0);
	play_note(1, 'a', 0, 4, 0);

	play_note(1, 'p', 0, 0, 0);
	*/
}

void play_indaclub(void) {

	play_string("InDaClub2:d=16,o=5,b=160:4d#6,d,p,8d6,4p,d,p,d,p,4p,d,p,d,p,4p,d,p,d,p,4d6,d#,p,8d#6,4p,d#,p,d#,p,4c6,c,p,8d6,4p,c,p,c,p,4d#6,d,p,8d6,4p,d,p,d,p,4p,d,p,d,p,4p,d,p,d,p,4d6,d#,p,8d#6,4p,d#,p,d#,p,4c6,c,p,8d6,4p,c,p,c,p");
	/*
	play_note( 4, 'd', 1, 6, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note(16, 'p', 0, 5, 0);
	play_note( 8, 'd', 0, 6, 0);
	play_note( 4, 'p', 0, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note(16, 'p', 0, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note(16, 'p', 0, 5, 0);
	play_note( 4, 'p', 0, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note(16, 'p', 0, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note(16, 'p', 0, 5, 0);
	play_note( 4, 'p', 0, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note(16, 'p', 0, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note(16, 'p', 0, 5, 0);
	play_note( 4, 'd', 0, 6, 0);
	play_note(16, 'd', 1, 5, 0);
	play_note(16, 'p', 0, 5, 0);
	play_note( 8, 'd', 1, 6, 0);
	play_note( 4, 'p', 0, 5, 0);
	play_note(16, 'd', 1, 5, 0);
	play_note(16, 'p', 0, 5, 0);
	play_note(16, 'd', 1, 5, 0);
	play_note(16, 'p', 0, 5, 0);
	play_note( 4, 'c', 0, 6, 0);
	play_note(16, 'c', 0, 5, 0);
	play_note(16, 'p', 0, 5, 0);
	play_note( 8, 'd', 0, 6, 0);
	play_note( 4, 'p', 0, 5, 0);
	play_note(16, 'c', 0, 5, 0);
	play_note(16, 'p', 0, 5, 0);
	play_note(16, 'c', 0, 5, 0);
	play_note(16, 'p', 0, 5, 0);
	play_note( 4, 'd', 1, 6, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note(16, 'p', 0, 5, 0);
	play_note( 8, 'd', 0, 6, 0);
	play_note( 4, 'p', 0, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note(16, 'p', 0, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note(16, 'p', 0, 5, 0);
	play_note( 4, 'p', 0, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note(16, 'p', 0, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note(16, 'p', 0, 5, 0);
	play_note( 4, 'p', 0, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note(16, 'p', 0, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note(16, 'p', 0, 5, 0);
	play_note( 4, 'd', 0, 6, 0);
	play_note(16, 'd', 1, 5, 0);
	play_note(16, 'p', 0, 5, 0);
	play_note( 8, 'd', 1, 6, 0);
	play_note( 4, 'p', 0, 5, 0);
	play_note(16, 'd', 1, 5, 0);
	play_note(16, 'p', 0, 5, 0);
	play_note(16, 'd', 1, 5, 0);
	play_note(16, 'p', 0, 5, 0);
	play_note( 4, 'c', 0, 6, 0);
	play_note(16, 'c', 0, 5, 0);
	play_note(16, 'p', 0, 5, 0);
	play_note( 8, 'd', 0, 6, 0);
	play_note( 4, 'p', 0, 5, 0);
	play_note(16, 'c', 0, 5, 0);
	play_note(16, 'p', 0, 5, 0);
	play_note(16, 'c', 0, 5, 0);
	play_note(16, 'p', 0, 5, 0);

	play_note( 1, 'p', 0, 0, 0);
	*/
}

void play_bullsonparade(void) {

	play_string("BullParade:d=4,o=4,b=80:32p,16d#5,16d5,16d5,8p,8d5,16p,16c5,16d5,16d5,8p,8d5,16p,16d#5,16d5,16d5,8p,8d5,16p,16d5,16d5,16d5,16d5,16c5,8d5,16p,16d#5,16d5,16d5,8p,8d5,16p,16c5,16d5,16d5,8p,8d5,16p,16d#5,16d5,16d5,8p,8d5,16p,16d5,16d5,16d5,16d5,16c5,8d5");
	/*
	set_tempo(80);

	play_note(32, 'p', 0, 4, 0);
	play_note(16, 'd', 1, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note( 8, 'p', 0, 4, 0);
	play_note( 8, 'd', 0, 5, 0);
	play_note(16, 'p', 0, 4, 0);
	play_note(16, 'c', 0, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note( 8, 'p', 0, 4, 0);
	play_note( 8, 'd', 0, 5, 0);
	play_note(16, 'p', 0, 4, 0);
	play_note(16, 'd', 1, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note( 8, 'p', 0, 4, 0);
	play_note( 8, 'd', 0, 5, 0);
	play_note(16, 'p', 0, 4, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note(16, 'c', 0, 5, 0);
	play_note( 8, 'd', 0, 5, 0);
	play_note(16, 'p', 0, 4, 0);
	play_note(16, 'd', 1, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note( 8, 'p', 0, 4, 0);
	play_note( 8, 'd', 0, 5, 0);
	play_note(16, 'p', 0, 4, 0);
	play_note(16, 'c', 0, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note( 8, 'p', 0, 4, 0);
	play_note( 8, 'd', 0, 5, 0);
	play_note(16, 'p', 0, 4, 0);
	play_note(16, 'd', 1, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note( 8, 'p', 0, 4, 0);
	play_note( 8, 'd', 0, 5, 0);
	play_note(16, 'p', 0, 4, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note(16, 'd', 0, 5, 0);
	play_note(16, 'c', 0, 5, 0);
	play_note( 8, 'd', 0, 5, 0);

	play_note( 1, 'p', 0, 0, 0);
	*/
}

void play_starwars(void) {
	play_string("StarWars:d=4,o=5,b=240:8F,8F,8F,2A#.,2F.6,8D#6,8D6,8C6,2A#.6,4F.6,8D#6,8D6,8C6,2A#.6,4F.6,8D#6,8D6,8D#6,2C6,4P,8F,8F,8F,2A#.,2F.6,8D#6,8D6,8C6,2A#.6,4F.6,8D#6,8D6,8C6,2A#.6,4F.6,8D#6,8D6,8D#6,2C6");
}

void play_backinblack(void) {

	play_string("BackInBlack:d=8,o=6,b=180:4e5,2p,d,d,4d,2p,c#,c#,4c,2p,f,e,d,b5,b5,a5,g5,4e5");

	/*
	set_tempo(180);

	play_note(4,'e',0,5,0);
	play_note(2,'p',0,6,0);
	play_note(8,'d',0,6,0);
	play_note(8,'d',0,6,0);
	play_note(4,'d',0,6,0);
	play_note(2,'p',0,6,0);
	play_note(8,'c',1,6,0);
	play_note(8,'c',1,6,0);
	play_note(4,'c',0,6,0);
	play_note(2,'p',0,6,0);
	play_note(8,'f',0,6,0);
	play_note(8,'e',0,6,0);
	play_note(8,'d',0,6,0);
	play_note(8,'b',0,5,0);
	play_note(8,'b',0,5,0);
	play_note(8,'a',0,5,0);
	play_note(8,'g',0,5,0);
	play_note(4,'e',0,5,0);

	play_note(1, 'p', 0, 0, 0);
	*/
}

void play_flight(void) {
	play_string("flight:d=4,o=6,b=160:16e5, 16d#5, 16d5, 16c#5, 16c5, 16f5, 16e5, 16d#5, 16e5, 16d#5, 16d5, 16c#5, 16c5, 16c#5, 16d5, 16d#5, 16e5, 16d#5, 16d5, 16c#5, 16c5, 16f5, 16e5, 16d#5, 16e5, 16d#5, 16d5, 16c#5, 16c5, 16c#5, 16d5, 16d#5, 16e5, 16d#5, 16d5, 16c#5, 16c5");
}

#endif